home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / MorphOS / Epic4_mos / share / epic / script / pipe < prev    next >
Encoding:
Text File  |  2002-10-28  |  385 b   |  25 lines
  1. /*
  2.  * Ok.  Here's the plan.
  3.  *
  4.  * $pipe(commands) will return the output from 'commands'.
  5.  */
  6.  
  7. alias pipe {
  8.     @ pipe.intval++
  9.     ^local mypipeval $pipe.intval
  10.     ^local mypipedesc pipe$mypipeval
  11.     ^local mypiperetval
  12.  
  13.     ^on ^exec "$mypipedesc *" {
  14.         bless
  15.         push mypiperetval $1-
  16.     }
  17.  
  18.     ^exec -name $mypipedesc $*
  19.     ^wait %$mypipedesc
  20.     ^on exec -"$mypipedesc *"
  21.     return $mypiperetval
  22. }
  23.  
  24. #hop'97
  25.